inherited frmCadUnidade: TfrmCadUnidade
  Left = 528
  Top = 107
  Caption = 'Cadastro de Unidades'
  ClientHeight = 447
  ClientWidth = 571
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 410
    Width = 571
  end
  inherited Panel2: TPanel
    Width = 571
    Height = 410
    inherited Panel3: TPanel
      Width = 569
      Caption = 'Unidades'
      inherited GroupBox1: TGroupBox
        Left = 490
      end
    end
    inherited Panel4: TPanel
      Width = 569
      Height = 368
      object Label1: TLabel [0]
        Left = 22
        Top = 18
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
      end
      object Label2: TLabel [1]
        Left = 22
        Top = 59
        Width = 48
        Height = 13
        Caption = 'Descri'#231#227'o'
      end
      inherited DBGrid1: TDBGrid
        Top = 151
        Width = 561
      end
      inherited SbHints: TStatusBar
        Top = 345
        Width = 561
      end
      object edtCodigo: TDBEdit
        Left = 22
        Top = 31
        Width = 51
        Height = 21
        CharCase = ecUpperCase
        DataField = 'UNI_CODIGO'
        DataSource = DtSrc
        Enabled = False
        MaxLength = 3
        TabOrder = 2
        OnExit = edtCodigoExit
      end
      object edtDescricao: TDBEdit
        Left = 22
        Top = 72
        Width = 297
        Height = 21
        CharCase = ecUpperCase
        DataField = 'UNI_DESCRICAO'
        DataSource = DtSrc
        Enabled = False
        MaxLength = 30
        TabOrder = 3
        OnExit = edtDescricaoExit
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Unidade
  end
  object SQLC_Unidade: TSQLClientDataSet
    CommandText = 'SELECT * FROM UNIDADE WHERE UNI_CODIGO = :PCODIGO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'PCODIGO'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 73
    Top = 9
  end
end
